home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / InteractiveBook_Files / Examples / Chapter1 / InitializeBreadboard.nsm < prev    next >
Encoding:
Text File  |  2002-03-08  |  2.6 KB  |  77 lines
  1. //
  2. // This macro creates a new breadboard and sets it up similar to the
  3. // ones created for the demo (3 text boxes, forward/cancel button ...)
  4. //
  5. application.displayInspector(FALSE)
  6. //activeBreadboard. lockWindowUpdate()
  7. activeBreadboard. setPromptToSaveModifications( FALSE )
  8. //
  9. // Put on the text boxes
  10. //
  11. activeBreadboard. showOpenProbes ( FALSE )
  12. activeBreadboard. sizeWindow ( 836 , 387 )
  13. activeBreadboard. maximize (  )
  14. activeBreadboard. showOpenProbes ( TRUE )
  15. activeBreadboard. setAnimatePoint ( 4 , 2 )
  16. activeBreadboard. stampAndMove ( "TextBoxEngine" , "titleTextBox" )
  17. activeBreadboard. setAnimatePoint ( 4 , 32 )
  18. activeBreadboard. stampAndMove ( "TextBoxEngine" , "subtitleTextBox" )
  19. activeBreadboard. setAnimatePoint ( 4 , 62 )
  20. activeBreadboard. stampAndMove ( "TextBoxEngine" , "mainTextBox" )
  21. titleTextBox. setText()
  22. subtitleTextBox. setText()
  23. mainTextBox. setText()
  24. titleTextBox. setBorderType ( 0 )
  25. titleTextBox. setTransparent ( TRUE )
  26. titleTextBox. setHeight ( 20 )
  27. titleTextBox. setWidth ( 530 )
  28. titleTextBox. setPosition ( 1 )
  29. titleTextBox. setPadding ( 1 )
  30. titleTextBox. setBold ( TRUE )
  31. titleTextBox. setColor ( 0 , 0 , 160 )
  32. titleTextBox. setFontSize ( 24 )
  33. titleTextBox. setMacroAction ( 1 )
  34. subtitleTextBox. setBorderType ( 0 )
  35. subtitleTextBox. setTransparent ( TRUE )
  36. subtitleTextBox. setColor ( 0 , 0 , 160 )
  37. subtitleTextBox. setHeight ( 20 )
  38. subtitleTextBox. setWidth ( 590 )
  39. subtitleTextBox. setPadding ( 1 )
  40. subtitleTextBox. setFontSize ( 18 )
  41. subtitleTextBox. setItalic ( TRUE )
  42. subtitleTextBox. setMacroAction ( 1 )
  43. mainTextBox. setTransparent ( TRUE )
  44. mainTextBox. setBorderType ( 0 )
  45. mainTextBox. setHeight ( 125 )
  46. mainTextBox. setWidth ( 590 )
  47. mainTextBox. setFontSize ( 18 )
  48. mainTextBox. setPadding ( 1 )
  49. mainTextBox. setMacroAction ( 1 )
  50. //
  51. // Put on the buttons
  52. //
  53. activeBreadboard. setAnimatePoint ( 540 , 4 )
  54. activeBreadboard. stampAndMove ( "ButtonEngine" , "cancelButton" )
  55. activeBreadboard. setAnimatePoint ( 580 , 4 )
  56. activeBreadboard. stampAndMove ( "ButtonEngine" , "nextButton" )
  57. cancelButton. setAutosize(FALSE)
  58. cancelButton. setHeight ( 20 )
  59. cancelButton. setWidth ( 25 )
  60. cancelButton. setPosition ( 1 )
  61. cancelButton. setFontSize ( 24 )
  62. cancelButton. setHeight ( 20 )
  63. cancelButton. setColor ( 255 , 0 , 0 )
  64. cancelButton. setPadding ( 1 )
  65. nextButton. setAutosize(FALSE)
  66. nextButton. setHeight ( 20 )
  67. nextButton. setWidth ( 25 )
  68. nextButton. setPosition ( 1 )
  69. nextButton. setFontSize ( 24 )
  70. nextButton. setHeight ( 20 )
  71. nextButton. setColor ( 255 , 0 , 0 )
  72. nextButton. setPadding ( 1 )
  73. nextButton. setAutosize(FALSE)
  74. cancelButton. setText(X)
  75. nextButton. setText(╗)
  76.  
  77.